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entity Tl is 

port ( RESET, CLK :IN stdjogic; 

APORT, BPORT, CPORT, DPORT : IN std_logic_vector (7 downto 0); 
E : IN stdjogic; 

OPORT : OUT std_logic_vector (7 downto 0) ); 

end Tl ; 
architecture RTL of Tl is 

type STATETYPE is ( SO, SI, S2, S3); 
signal CURRENT_STATE, NEXT__STATE : STATE TYPE; 
SIGNAL A, B, C, D, F, G, O, NEXT_A, NEXT_B, NEXT_C, NEXTD, 
NEXTF, NEXT_G, NEXTJ) : std_logic_vector (7 downto 0); 

begin 

COMBIN : process (CURRENTSTATE) 
begin 

NEXT_A <= A; NEXT B <= B; NEXT_C <= C; NEXT D <= D; 
NEXT_F <= F; NEXT_G <= G; NEXT_0 <= O; OPORT <= O; 
case CURRENT_STATE is 
when SO => 

NEXT_A <= APORT; NEXT B <= BPORT; 
NEXTC <= CPORT; NEXT D <= D; 
NEXT_G<= "00000000"; 

when SI => ^ 3Q| 

if(C<D)then 

NEXTF <= A + B; 
NEXTSTATE <= S2; 

else 

NEXT_F <= A - B; 
NEXT STATE <= S3; 

end if; 
when S2 => 

NEXT G <= F+ G; 
if(E= '0')then 

NEXTJSTATE<=S1; 

else 

NEXT_STATE <= S3; 

end if; 
when S3 => 

NEXT_0 <= G - 3; 
NEXT_STATE <= SO; 

end case; 
end process; 
SYNCH : process (CLK, RESET) 
begin 

if ( CLK'event and CLK = T ) then 
if ( RESET = T ) then 

CURRENT^STATE <= SO; 

else 

A <= NEXT_A; B <= NEXT B; C <= NEXT_C; D <= NEXT_D; 
G <= NEXT G; F <= NEXT_F; O <= NEXT_0; 

end if; 

end if; 
end process; 

end RTL; 
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